Câu 1 khai báo dãy a gồm n(n>=300) số nguyên dương Câu 2 khai báo dãy a gồm n(n>=300) số nguyên dương mỗi số có giá trị nhỏ hơn 500 a tạo giá trị mảng bằng hàm random B tính tổng các số có giá trị bằng 150
Những câu hỏi liên quan
Làm ơn giúp mình với
Câu 1 :Viết khai báo dãy A gồm N(N<=100) số thực, mỗi số có giá trị tuyệt đối không vượt quá 200
Câu 2: Dãy A gồm N(N<=100) số thực. Mỗi số có giá trị tuyệt đối không vượt quá 200.
a.hãy khởi tạo giá trị cho mảng A bằng cách dùng thủ tục random
b. Tính tổng các số có giá trị <=100 rồi đưa tb ra màn hình
Câu 2:
uses crt;
var a:array[1..100]of real;
i,n,dem:integer;
t:real;
begin
clrscr;
randomize;
cin>>n;
for i:=1 to n do a[i]:=random(200);
t:=0; dem:=0;
for i:=1 to n do if a[i]<=150 then begin
t:=t+a[i];
inc(dem);
end;
writeln(t/dem:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n100. Hãy khai báo biến mảng trên?Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai100)a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)b) Tính tổng các phần tử chia hết cho 3c) In ra màn hình các số chẵn ở vị trí lẻ trong dãyhuhu giúp mình với TT
Đọc tiếp
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n<=100. Hãy khai báo biến mảng trên?
Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.
Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai<=100)
a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)
b) Tính tổng các phần tử chia hết cho 3
c) In ra màn hình các số chẵn ở vị trí lẻ trong dãy
huhu giúp mình với TT
Câu 1:
var a:array[1..100]of integer;
Câu 2:
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..15]of integer;
i,n,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=15);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
writeln('Mang da nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
writeln('Cac so chan o vi tri le trong day la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Cho số nguyên dương n(n nhỏ hơn hoặc bằng 250) và dãy A gồm n số nguyên dương A1, A2,...An. mỗi số đều không vượt quá 500 .
a/Tính tổng các số là bội của 3
b/tìm giá trị lớn nhất nhỏ nhất của mảng
Xem chi tiết
uses crt;
var a:array[1..250]of integer;
n,i,t,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac so la boi cua 3 la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
Đúng 2
Bình luận (0)
Cho số nguyên dương n(n nhỏ hơn hoặc bằng 250) và dãy A gồm n số nguyên dương A1, A2,...An. mỗi số đều không vượt quá 500 . A/sắp xếp mảng A để đc 1 mảng không tăng, không giảm
B/ tính trung bình cộng của mảng
C/ đưa ra tất cả các vị trí có giá trị lớn nhất trong mảng, nhỏ nhất trong mảng
D/ tìm trong mảng phần tử có giá trị bằng K ( với K đc nhập từ bàn phím)
E/ đếm trong mảng có bao nhiêu phần tử bằng K
Đọc tiếp
Cho số nguyên dương n(n nhỏ hơn hoặc bằng 250) và dãy A gồm n số nguyên dương A1, A2,...An. mỗi số đều không vượt quá 500 . A/sắp xếp mảng A để đc 1 mảng không tăng, không giảm
B/ tính trung bình cộng của mảng
C/ đưa ra tất cả các vị trí có giá trị lớn nhất trong mảng, nhỏ nhất trong mảng
D/ tìm trong mảng phần tử có giá trị bằng K ( với K đc nhập từ bàn phím)
E/ đếm trong mảng có bao nhiêu phần tử bằng K
program so_lon_nhat;
uses crt;
var a: array[1..100] of integer;
i,n,max,k,dem: integer;
s,tbc: real;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
writeln(' nhap so can tim:'); readln(k);
max:=a[1];
i:=1;
dem:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
tbc:=s/n;
if a[i]=k then dem:=dem+1;
end;
writeln(' so lon nhat trong day tren la:',max);
while (i<n) and (a[i]<>k) do i:=i+1;
if a[i]=k then writeln(' phan tu thu ', i ,' bang ',k)
else writeln(' k tim dc phan tu',k);
writeln(tbc:6);
writeln('co', dem, ' phan tu', k);
readln
end.
Đúng 2
Bình luận (0)
Tạo mảng A gồm n (\(n\le100\)) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300.Viết chương trình tính tổng các phần tử của mảng là bội số của một số nguyên dương k cho trước.
uses crt;
var a:array[1..100]of integer;
i,n,t,k:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (1)
Uses crt;
Var A: array[1..100] of longint;
n，k，i，s: longint;
Begin
Clrscr;
Write(‘Nhap n，k: ‘); Readln(n，k);
s:=0;
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod k = 0 then s:=s+A[i];
End;
Write(s);
Readln
End.
Đúng 0
Bình luận (1)
Tạo mảng A gồm n (n≤100) số nguyên, mỗi số có giá trị tuyệt đối không vượt quá 300.Viết chương trình C ++ tính tổng các phần tử của mảng là bội số của một số nguyên dương k cho trước.
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,k,t;
int main()
{
cin>>n>>k;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%k==0) t+=x;
}
cout<<t;
return 0;
}
Đúng 1
Bình luận (0)
25 tháng 2 2021 lúc 20:27
Cho số nguyên dương N ( N ≤ 250 ) và dãy n số nguyên dương A1 A2,..., An mỗi số đều không vượt quá 500. Yêu cầu:1) Đếm số lượng các phần tử có giá trị lẻ trong dãy số A.2) Tính tổng giá trị các phần tử đứng vị trí chẵn trong dãy số A3) Tính tổng giá trị các phần tử đứng vị trí lẻ trong dãy số A.4) Tính tổng giá trị các phần tử là số chẵn đứng ở vị trí chẵn trong dãy A.5) Tính tổng giá trị các phần tử là số lẻ đứng ở vị trí lẻ trong dãy A.6) Tính trung bình cộng các phần tử trong dãy.
Đọc tiếp
Cho số nguyên dương N ( N ≤ 250 ) và dãy n số nguyên dương A1 A2,..., An mỗi số đều không vượt quá 500. Yêu cầu:
1) Đếm số lượng các phần tử có giá trị lẻ trong dãy số A.
2) Tính tổng giá trị các phần tử đứng vị trí chẵn trong dãy số A
3) Tính tổng giá trị các phần tử đứng vị trí lẻ trong dãy số A.
4) Tính tổng giá trị các phần tử là số chẵn đứng ở vị trí chẵn trong dãy A.
5) Tính tổng giá trị các phần tử là số lẻ đứng ở vị trí lẻ trong dãy A.
6) Tính trung bình cộng các phần tử trong dãy.
uses crt;
var a:array[1..250]of integer;
i,n,dem,t,t1,t2,t3,t4:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=250);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<a[i]) and (a[i]<=500);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=1 then inc(dem);
writeln('So phan tu co gia tri le la: ',dem);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu co chi so chan la: ',t);
t1:=0;
for i:=1 to n do
if i mod 2=1 then t1:=t1+a[i];
writeln('Tong cac phan tu co chi so le la: ',t1);
t2:=0;
for i:=1 to n do
if (i mod 2=0) and (a[i] mod 2=0) then t2:=t2+a[i];
writeln('Tong cac phan tu chan co chi so chan la: ',t2);
t3:=0;
for i:=1 to n do
if (i mod 2=1) and (a[i] mod 2=1) then t3:=t3+a[i];
writeln('Tong cac phan tu co chi so le la: ',t3);
t4:=0;
for i:=1 to n do
t4:=t4+a[i];
writeln('Trung binh cong cac so trong day la: ',t4/n:4:2);
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập từ bàn phím số nguyên dương N(N=150) và dãy A gồm N số nguyên A¹ , A²,...An, có giá trị tuyệt đối không lớn hơn 900. Hãy cho biết dãy A có phải cấp số cộng hay không và thông báo kết quả ra màn hình
Chọn dãy A gồm số nguyên dương N và dãy gồm các số hạng a1,a2...aN.Hãy cho biết có bao nhiêu số hạng trong dãy có giá trị nhỏ hơn 5,nếu có hãy cho biết tổng của chúng là bao nhiêu
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem;
int main()
{
cin>>n;
t=0;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x<5)
{
t=t+x;
dem++;
}
}
cout<<t<<" "<<dem;
return 0;
}
Đúng 1
Bình luận (0)
